home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1993 / Internet Info CD-ROM (Walnut Creek) (1993).iso / networking / terms / kermit / b / ts2ker.ins < prev    next >
Encoding:
Text File  |  1988-08-16  |  4.9 KB  |  109 lines
  1. How to build an executable version of Kermit-TSO   (3 Feb 1987)
  2. ================================================
  3.  
  4. Kermit-TSO is composed of four assembly language subroutines, and the
  5. PASCAL main program. They should separately be assembled resp. compiled
  6. and then linked together.
  7.  
  8.    1. Extract four assembler routines from file KERMIT.ASM
  9.  
  10.    2. Make sure a TSO command is installed, which allows you to run some
  11.       other TSO commands and reroute their output to a file.
  12.  
  13.    3. If your site's ASCII/EBCDIC translation table does not conform
  14.       to the one implemeted in the PASCAL source, then enter the
  15.       corresponding translation table for your site.
  16.  
  17.       The original translation tables look as follows:
  18.  
  19.       +--------------------------------------------------------+
  20.       |  ASCIITOEBCDIC =                                       |
  21.       |         '010203372D2E2F1605250B0C0D0E0F'XC ||  (* 0 *) |
  22.       |       '101112133C3D322618193F271C1D1E1F'XC ||  (* 1 *) |
  23.       |       '405A7F7B5B6C507D4D5D5C4E6B604B61'XC ||  (* 2 *) |
  24.       |       'F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F'XC ||  (* 3 *) |
  25.       |       '7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6'XC ||  (* 4 *) |
  26.       |       'D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F6D'XC ||  (* 5 *) |
  27.       |       '79818283848586878889919293949596'XC ||  (* 6 *) |
  28.       |       '979899A2A3A4A5A6A7A8A9C04FD0A107'XC ||  (* 7 *) |
  29.       |       '00000000000000000000000000000000'XC ||  (* 8 *) |
  30.       |       '00000000000000000000000000000000'XC ||  (* 9 *) |
  31.       |       '00000000000000000000000000000000'XC ||  (* A *) |
  32.       |       '00000000000000000000000000000000'XC ||  (* B *) |
  33.       |       '00000000000000000000000000000000'XC ||  (* C *) |
  34.       |       '00000000000000000000000000000000'XC ||  (* D *) |
  35.       |       '00000000000000000000000000000000'XC ||  (* E *) |
  36.       |       '00000000000000000000000000000000'XC ;   (* F *) |
  37.       |                                                        |
  38.       |                                                        |
  39.       |  EBCDICTOASCII =                                       |
  40.       |         '0102030009007F0009000B0C0D0E0F'XC ||  (* 0 *) |
  41.       |       '1011121300000800181900001C1D1E1F'XC ||  (* 1 *) |
  42.       |       '00000000000A171B0000000000050607'XC ||  (* 2 *) |
  43.       |       '0000160000000004000000001415001A'XC ||  (* 3 *) |
  44.       |       '200000000000000000005C2E3C282B7C'XC ||  (* 4 *) |
  45.       |       '2600000000000000000021242A293B5E'XC ||  (* 5 *) |
  46.       |       '2D2F00000000000000007C2C255F3E3F'XC ||  (* 6 *) |
  47.       |       '000000000000000000603A2340273D22'XC ||  (* 7 *) |
  48.       |       '00616263646566676869007B00000000'XC ||  (* 8 *) |
  49.       |       '006A6B6C6D6E6F707172007D00000000'XC ||  (* 9 *) |
  50.       |       '007E737475767778797A0000005B0000'XC ||  (* A *) |
  51.       |       '000000000000000000000000005D0000'XC ||  (* B *) |
  52.       |       '7B414243444546474849000000000000'XC ||  (* C *) |
  53.       |       '7D4A4B4C4D4E4F505152000000000000'XC ||  (* D *) |
  54.       |       '5C00535455565758595A000000000000'XC ||  (* E *) |
  55.       |       '303132333435363738397C0000000000'XC ;   (* F *) |
  56.       +--------------------------------------------------------+
  57.  
  58.  
  59.    4. Assemble the four assembler source files, and compile the PASCAL
  60.       main program using the PASCAL/VS compiler (with NOOPT option!).
  61.  
  62.    5. Link the files into a loadable module (system library).
  63.  
  64.       Example of points 4 & 5:
  65.         ASMH     KERM(TWRITE)          (from library KERM.ASM)
  66.         ASMH     KERM(TREAD)
  67.         ASMH     KERM(WAIT)
  68.         ASMH     KERM(TERMSIZE)
  69.         PASCALVS KERM(KERMIT) NOOPT    (from library KERM.PASCAL)
  70.         PASCMOD  KERM(KERMIT) +
  71.            OBJ(KERM(TREAD),KERM(TWRITE),KERM(WAIT),KERM(TERMSIZE)) +
  72.            LOAD('''SYS1.CMDLIB(KERMIT)''')
  73.  
  74.    6. Install a CLIST with the following content:
  75.         PROC 0
  76.         CONTROL NOMSG NOFLUSH
  77.         FREE FILE(DFILE,SFILE,RFILE,TSODS)
  78.         FREE DA(TSODS)
  79.         SET INIT =
  80.         IF &SYSDSN(KERMIT.SETUP) = OK THEN SET INIT = &STR(@INIT)
  81.         CALL 'SYS1.CMDLIB(KERMIT) '&SYSUID.&INIT'
  82.  
  83.    7. Install a system help in one of the system help libraries
  84. )F Function -
  85.      The KERMIT Command Procedure starts a filetransfer program, which
  86.      implements the KERMIT file transfer protocol for IBM computers run-
  87.      ning under the MVS/XA operating system. KERMIT supports transfer of
  88.      most filetypes to and from the host.
  89.  
  90.    Notes:
  91.      a) Filetransfer may only run over an ASCII (asynchronous) line.
  92.      b) You may setup KERMIT by specifing some valid KERMIT commands
  93.         in the dataset 'Uid.KERMIT.SETUP'. After processing all setup
  94.         commands, KERMIT is ready for interactive use.
  95.      c) KERMIT is delivered on an asis base, any problems should be re-
  96.         ported to the 'Help desk' - Tel .......
  97.  
  98. )X Syntax -
  99.      %KERMIT
  100.  
  101. )O Operands - none
  102.  
  103.  
  104.  
  105. To run TSO Kermit, simply type "%KERMIT" after the TSO system prompt.
  106. And now enjoy this new version of KERMIT running under MVS/TSO ...
  107.  
  108. ---- Fritz
  109.